home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / editor / auror300.zip / DESKSAVE.AML < prev    next >
Text File  |  1996-07-17  |  898b  |  33 lines
  1. //--------------------------------------------------------------------
  2. // DESKSAVE.AML
  3. // Save Desktop, (C) 1993-1996 by nuText Systems
  4. //
  5. // (see Desksave.dox for user help)
  6. //
  7. // This macro saves the current desktop layout to a file. If the filename
  8. // is not passed as arg 3, then the user is prompted to enter the
  9. // filename of the desktop layout.
  10. //
  11. // Usage:
  12. //
  13. // Select this macro from the Macro List (on the Macro menu), or run it
  14. // from the macro picklist <shift f12>.
  15. //--------------------------------------------------------------------
  16.  
  17. // compile time macros and function definitions
  18. include bootpath "define.aml"
  19.  
  20. file = arg 3
  21. if not file then
  22.   file = ask "Save current desktop to file" "_load"
  23. end
  24.  
  25. if file then
  26.   currdesk
  27.   if savedesk (qualify (defext file "dst") (getbufname)) then
  28.     display
  29.   else
  30.     msgbox "Can't save " + file
  31.   end
  32. end
  33.